#!/usr/bin/perl -w

#辞書型人工無能の例

use strict;
use MeCab;
use CGI;

print "Content-Type: text/html\n\n";

my $cgi = new CGI;


print <<HTMLHEAD;
<html>
<body>
HTMLHEAD

my $str = "はじめまして。";

my $getstring="";
$getstring = $cgi->param('str');

$getstring =~ s/<//g;
$getstring =~ s/>//g;
$getstring =~ s/\.\.//g;
$getstring =~ s/$//g;

if( (length $getstring) != 0){$str=$getstring;}

#print $getstring;

print "<h1>辞書型 春日 ver0</h1>\n";

print "超簡易版、辞書に登録された言葉を話しかけると返事をします。<br><br>\n";

#辞書の読み込み
open(DICT,'dict.csv');

my %dict_hash;
while(my $line = <DICT>){
  my ($q,$ans) = split(/,/,$line,2);
  $dict_hash{$q} = $ans;
}

#print %dict_hash;

print <<FORM;
<form method="GET" action="dictionary.cgi">
文章：<input type="text" name="str" size="50">
<input type="submit" value="話しかける" />
</form>
FORM

print "you > ".$getstring."<br>";

my $anser="？？？";
if(exists($dict_hash{$getstring})){
  $anser = $dict_hash{$getstring};
}else{
  $anser = $dict_hash{'other'};
}

print "春日 > ".$anser."<br>";

print "<hr>";
while(my ($key,$value) = each(%dict_hash)){
  print "「".$key."」と話しかけると「".$value."」と返事をする<br>";
}
print "、、、予定です。";

print <<HTMLFOOT;
</body>
</html>
HTMLFOOT
